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Expert System - Basic Student guide fro C Language Integrated Production System 

CLIPS 

What is this document made for ? 

In November 2010 I teach CLIPS in Lab of UQU with Porf.Osama Khozium. 

This document made for helping students to learn the basic for CLIPS, this documents has 
some examples program and their execution. 

By the end of this document you will learn how to integrate CLIPS with one of the following 
programming languages C , C++ , C# , Python and Java. 

Is this document enough for Students ? 

For whom is interesting of learning CLIPS for non Engineer this document consider as an easy 
open door to the world of Computation. 

Engineering field such Computer Science , Computer Engineering and other this is not enough to be a 
novel you must use the reference of CLIPS language found in the following website: 
http://clipsrules.sourceforge.net/ . 

This document will cover some of the Basic programming in CLIPS not all. 

What tools should I use for building Expert System with CLIPS ? 

- CLIPS : 

Is an expert system tool developed by the Software Technology Branch (STB) at the NASA/ 
Lyndon B. Johnson Space Center. It was released in 1986. 
Website: http://clipsrules.sourceforge.net/ 
License: Open source - Public Domain 

- JESS : 

Is a rule engine and scripting environment written entirely in Sun's Java language by Ernest 
Friedman-Hill at Sandia National Laboratories, it was first written in late 1995, its powerful 
scripting language give you the access to all of Java APIs. 
Website: http://www.jessrules.com/ 
License: Closed Source - Public Domain 



How do you read this document ? 

First of all I hope you will earn the good benefit from this document. 

Secondly you need to practice your hand to write code that is the best way to learn any Programming 
language also you need to visit site to download Example : 
https://sites.google.com/site/orabilouai/my-library/expert-system-clips 

Finally to learn more about CLIPS read the official document http://clipsrules.sourceforge.net/ . 

Louai m Alarabi, 
Teacher Assistance, UQU 
Computer Science Dept 
lmarabi(5)uqu.edu.sa 



INTRODUCTION 



CLIPS, Concern about how to represent (codifying) a Knowledge into Knowledge Base (KB) 
so can be access late by an expert system. 

Before you start reading this document please make sure that you got a good answer for all these 
question, you can search about them, personally I recommended to discuss this with your Professor. 

What is Data ? 

What is Information? 

What is Knowledge ? 

Why representing Knowledge? 

What is different between Knowledge base and Database ? 
What makes Expert System special from any another system ? 
What is inference Engine and what technique it provide ? 



A/ar? -expert 
user 



Knowledge 
from an expert 



Expert System 





CLIPS OVERVIEW 

^ Write Hello World in CLIPS 



FN 



a clips ooe 

ile Edit View Terminal Help 



CLIPS> (printout t "Hello to CLIPS World" crlf) 
Hello to CLIPS World 
CLIPS> 



t - mean Terminal. 

Crlf - mean carriage returned line feed. 

CLIPS commands are always encased in brackets thus: (assert ( f 00 ) ) . Here is a list of some 
important commands: 



(exit) 


Shuts down CLIPS 


(clear) 


Remove all Rule and Facts from memory. Equivalent to shutting down 
and restarting CLIPS 


(reset) 


Remove facts from memory (but not Rule) and reset the agenda 


(run) 


Start executing CLIPS program. 


; comments 


Semi colon used for comments. 



► 

Data Type: 



Float 


Integer 


Symbol 


String 


External- 
Address 


Fact-Address 


Instance- 
Name 


Instance- 
Address 


21.2 
32.3e-l 


43 


say_hi 
823sfd 

%$A& 


"say hi" 


<Pointer-X> 


<Fact-X> 


[say_hi] 


<Instance-X> 



Q: Is there a Boolean data type in CLIPS, if your answer is yes or even no please give an example ? 

(discuss this with your teacher or colleagues ) 

Ans: 



Basic I/O command in CLIPS 



Save File: 

If the file saved successfully then the function return TRUE otherwise return FALSE and might some 
explain log . 

Syntax: 

(save <file-name>) 
Example: 

on windows operating system. 



i Dialog Window 






CLIPS> 


(deffacts color 

(Red 22 23 0) 
(Black 0 0 0) 






CLIPS> 

TRUE 

CLIP5> 


) 

(save "C:\\Clips\\FileColor . cip") 

i 






<J 






> 



On Linux operating system 

CD Q Terminal 

File Edit View Terminal Help 

(deffacts color 

(Blue 32 42 8} 
(Black 0 0B} 

> 

CLIPS> (reset) 
CLIPS> (run} 
CLIPS> (facts) 
f-Q (initial-fact) 
f-1 (Blue 32 42 0) 
f-2 (Black 000) 
For a total of 3 facts. 
CLIPS> (save "/home/louai/Desktop/clips/colorFile.clp") 
TRUE 
CLIPS> 



ooe 



Open File: 

IF the file open successfully then function return TRUE otherwise return False and might be there some 
explained log. 

Syntax : 

(open <file-name> <logical-name> [<mode>]) 



Mode 


Mean 




Read access only 


"w" 


Write access only 


"r+" 


Read and Write access 


"a" 


Append access only 


"wb" 


Binary write access 



Example: 

(open "studentFactsFile.clp" studentFile "r+") 

(open "home/clipsProgram/studentFactsFile.clp" Filestd) 
On Windows 



Dialog Window 



CLIPS> (open "C : \ \ Clips\ \ FileColor . dp " F i leLogicName ) 
TRUE 

CLIPS> (reset) 

CLIPS> (run) 

CLIPS> (facts) 
f-0 ( initial-fact) 

f-1 (Red 22 23 0) 

f-2 (Black 0 0 0) 

For a total of 3 facts . 
CLIPS> 

> 




On Linux 



CD □Terminal 


OOft 


File Edit View Terminal Help 




CLIPS> (open Vhome/louai/Desktop/clip5/colorFile.clp" pilel "r+") 




TRUE 




CLIPS> (reset) 




CLIPS> (run) 




CLIPS> (facts) 




f-0 (initial-fact) 




f-1 (Blue 32 42 0) 




f-2 (Black 000) 




For a total of 3 facts. 


Iei 


CLIPS> 





Close File: 

Closing file that previously opened throw command. 
Syntax: 

(close <logical-name>) 
Example: 
On Linux 







File Edit View Terminal Help 




CLIPS (V6.24 GG/15/GG) 




CLIPS> (open "/home/louai/Desktop/clips/colorFile.clp" Filel) 
TRUE 




CLIPS> (close Filel) 




TRUE 




CLIPS> 





On Windows 



Dialog Window 



CLIPS> (open "C : \ \ Clips\ \ FileColor . clp" Filel) 
TRUE 

CLIPS> (close Filel) 

TRUE 

CLIPS> 

mm 



Load File: 

Load - is used to load constructs from file into the environment. 

Load* - has the same functionality of load but no information message will appear the function will 
return TRUE if file loaded successfully otherwise return False. 

Bload - is used to load binary constructs file that currently saved using (bsave <file-name>). 
Syntax: 

( load <file-name> ) 
( load* <file-name>) 
( bload <file-name> ) 
Example: 



On Linux operating System. 



CD EH Terminal 


ooe 1 


File Edit View Terminal Help 




CLIPS> (load "/home/louai/Desktop/clips/colorFile.clp") 
Defining deffacts: color 




TRUE 




CLIPS> (facts) 




CLIPS> (reset) 




CLIPS> (run) 




CLIPS> (facts) 




f-S (initial-fact) 




f-1 (Blue 32 42 0) 




f-2 (Black 0 0 0) 




For a total of 3 facts. 




CLIPS> | 





On Windows operating system. 



i Dialog Window 


BE® 


CLIPS> (load* rr C:\\Clips\\FileColoi:.clp rr ) 
TRUE 

CLIPS> (bload rr C:\\Clips\\FileColoi:.clp rr ) 
[BLOAD2] File C:\Clips\FileColor.clp is not 
FALSE 
CLIPS> | 


a binary construct file. 


<i 


> 



KNOWLEDGE REPRESENTATION 



^ FACTS: 

def facts constructs, assert a list of facts. 

Syntax: 

(deffacts <deffacts-name> [<comment>] 
<RHS-pattern>*) 

Example 

(deffacts home "This is facts about home" 
(door is open) 

) 



The table below with the name of std has the following facts: 



Name 


Age 


Gender 


Ali 


24 


M 


Omar 


19 


M 


Nouf 


32 


F 


Saed 


21 


M 


Sara 


22 


F 



CD □ Terminal 
File Edit View Terminal Help 




CLIPS (V6.24 06/15/06) 




CLIPS> (deffacts std "facts about students" 




[std Ali 24 H) 




[std Omar 19 H) 


! 


(std Nouf 32 F} 




(std Saed 21 H) 




(std Sara 22 F) 




) 


T 



after writing the facts we would like to Execute the program to execute we must use the following 
command. 

(reset) 
(run) 

and for removing facts from working memory we use the following command 
(retract <fact-number>*) ; * could take more than one parameter. 



one 1 



File Edit View Terminal 


Tabs Help 








Terminal 




louai@louai laptop: - 


© i 


louai@louai-laptop:-$ clips 










CLIPS (V6.24 06/15/06) 








ft TP9^ 


(deffacts std "facts about students" 
(std Ali 24 M] 










fstd Omar 

\ J L. kl UlllU 1 


19 M) 










(std Nouf 


32 F) 










(std Saed 


21 M) 










(std Sara 

) 

(reset) 


22 F) 








CLIPS> 










CLIPS> 


(run) 










CLIPS> 


(facts) 










f-B 


(initial-fact) 










f-1 


(std Ali 24 H) 










f-2 


(std Omar 19 H) 










f-3 


(std Nouf 32 F) 










f-4 


(std Saed 21 H) 










f-5 


(std Sara 22 F) 










For a total of 6 facts. 










CLIPS> 













W Rules: 

One of the primary method to represents knowledge in CLIPS is a rule, A rule is a collection of 
condition and action to be taken if the condition met. 



Syntax: 



(defrule <rule-name> [<comment>] 

[<declaration>] ; Rule Properties 

<conditional-element>* ; Left-Hand Side (LHS) 

=> 

<action>* ; Right-Hand Side (RHS) 

) 



Rule properties could have any name 
Example: 



CD 

File Edit View Terminal Help 



□ Terminal 



OOft 



CLIPS> (load "/home/louai/Desktop/clips/StiidentFile.clp" ! 
Defining def facts: std 
Defining def facts: factl 
TRUE 

CLIPS> (reset) 
CLIPS> (run) 
CLIPS> (facts) 
f-S (initial-fact) 
f-1 (Std Ali 24 H) 

f-2 (std Omar 26 H} 
f-3 (std Fisal 13 M) 
f-4 (std suze 43 F) 
f-5 (std Lamia 16 F) 
f-6 (std Mohamed 2S »} 
f-7 (p sara 23) 
f-8 (p mishal 53) 
For a total of 9 facts. 

CLIPS> (defmle teenAge "This Rule to print the teen age student" 
(std ?stdNane ?stdAge ?stdGender) 
(test [<= ?stdAge 20)) 



) 

CLIPS> (reset) 
CLIPS> (run) 
Mohamed 26 
Lamia 16 
Fisal 13 
CLIPS> 



(printout t ?stdName 



?stdAge crlf) 



Exercise: 

1- Write a CLIPS program using the previous list of facts and print female student information with 
count. 

Output would look like this: 
#1 suze 43 F 
#2 lamia 16 F 

Example 2: 

Represents the below facts in Knowledge base and find out how miss the rage of the salary accourding 
to employee major. 



Major 


Minimum salary 


Maximum Salary 


Computer 
Science 


7000 


20000 


Biology 


4000 


9000 


Physics 


9000 


23420 




Name 


Major 


Salary 


Abdullah 


Computer Science 


7300 


Hassan 


Biology 


2400 


Lana 


Physics 


50123 



Who has more or less than regular salary the output should be look like this 



iCD CD CLIPS 
File Edit View Terminal Help 


one 1 


CLIPS> (reset] - 




CLIPS> (run) 




nadia 50123 




Hassan 2400 


0 


What a Fear world 




CLIPS> 





File Edit View Terminal Help 



CLIPS> (def facts Major 

(m computerScience 7000 20000) 
(m Biology 4000 9000] 
(m Physics 9000 23420) 

i 

CLIPS> (deffacts Employee 

(e abdullah computerScience 7300] 
(e Hassan Biology 2400) 
(e nadia Physics 50123) 

i 

CLIPS> (defrule Rulel 

(m ?mHajor ?mHini ?mHaxi) 
(e ?eName ?eMajor ?eSalary) 
(test (eq ?mMaj or ?eMajor) ) 

=> 

(if (or (< ?eSalary ?mHini) (> ?eSalary ?mHaxi)) 
then 

(printout t ?eName " " ?eSalary crlf} 
else 

(printout t "What a Fear world" crlf) 

) 



Assert 



Assert used for adding new facts to the fact list if the fact exist then FALSE will be returned. 

Syntax : 

(assert <RH-Pattern>) 

Example: 

The following table has the relation between each father and his son lets call this table M, and the table 
next table F has relation between Mother and her son. If we supposed that sons in both table are same 
could you figure out whom married whom. ? 

1- Represents the facts in table. 

2- show the facts using (facts) command. 

3- add Assert to add facts. 



Father 


Son 


Marriage ID 


Ali 


Ahmed 


123 


Mohamed 


Slma 


432 


Khaled 


Louai 


4245 


Mosaed 


Ali 


88808 




Mother 


Son 


Number of Suns 


Mona 


Nadia 


2 


Hanan 


Ali 


4 


Eman 


Slma 


3 


Noha 


Louai 


1 



1° 

File Edit View Terminal Help 



□ CLIPS 



CLIPS> (deffacts marriage 

(m AU Ahmed 123} 
(m Mohamed Slma 432) 
(m Khaled Louai 42451 
(m Mosaed AU 88808) 
(f Mona Madia 2) 
(f Hanan AU 4) 
(f Eman Slma 3) 
(f Noha Louai 1) 



CLIPS> 



) 

(defrule married "Rule to determin who married who" 
(m ?father ?iSon ?mID) 
(f ?mother ?fSon ?fCount) 
(test (eq ?iSon ?fSon) ) 



i 



(assert (married ?f ather ? mother ?f Son ) ) 



CLIPS> (reset) 

CLIPS> [run} 

CLIPS> (facts) 

f-0 (initial-fact) 

f-1 (m Ali Ahmed 123} 

f-2 (m Mohamed Slma 432! 

f-3 (m Khaled Louai 4245) 

f-4 (m Hosaed Ali 88808) 

f-5 (f Mona Nadia 2) 

f-6 (f Hanan Ali 4) 

f-7 (f Eman Slma 3) 

f-8 (f Noha Louai 1) 

f-9 (married Khaled Noha Louai) 

f-10 (married Mohamed Eman Slma) 

f -11 (married Mosaed Hanan Ali) 

For a total of 12 facts. 

CLIPS> | 



r 



™ User define Function: 

deffunction constructs , define a user function like any other language, There is two way to define 
function in CLIPS: 



deffunction 


Writing in CLIPS and executed by CLIPS 


User-defined external function 


Writing in other language such C , Java and integrated with CLIPS 



Syntax: 



(deffunction <function-name> [<comment>] 

(<regular-parameter> [<wildcard-parameter>] ) ; parameter 
<action>* ; one or steps of actions 

) 



Example: 

1) Find the area of triangle with the base of 15 inches and the hight of 4 inches ? 
Hint: Area formula = Vi (base * hight) 




File Edit View Terminal Help 



□ CLIPS 



CLIPS> (deffunction area-triangle (?base ?hight) 

(printout t "Area = 11 (/ (* ?base ?hight) 2) 11 in*in" crlf) 
1 ;end function 
CLIPS> (area-triangle 15 4) 
Area =30.0 in*in 
CLIPS> 



2) Declare a function that calculate the factorial of number? 
[CD □ CLIPS 

File Edit View Terminal Help 



OOfl 



CLIPS> (deffunction factorial (?a) 

(if (or (not (integerp ?a)) (< ?a %)} 
then 

(printout t "Factorial Error! 11 crlf) 

else 

(if (= ?a B) 
then 

1 

else 

(* ?a (factorial (- ?a 1) } ) 
) ;endif 

) ;endif 
) jendFucntion 
CLIPS> (factorial 6) 
720 



Notice that the function parameter could be void also an action could be more than one action, see the 
example below. 



CD 

File Edit View Terminal Help 



□ CLIPS 




[deffunction 


print (1 




[printout t 


ii m 


crlf) 


[printout t 


ii 444 ii 


crlf) 


(printout t 


pi 4 M 


crlf) 


(printout t 


ii 444 M 


crlf) 


(printout t 


pi 44444 *i 


crlf) 



) 

CLIPS> (print) 

444 

4 
444 
44 4 4 4 

CLIPS> 



Logical Conditional: 
We can use logical conditional in CLIPS with rule , IF 



Logical 


BNF 


Example 


Not 


(not <conditional-elements>) 


(not (= 34 43) ) 


OR 


(or <conditional-elements>) 


(or (> ?grade 90) (< ?grade 100)) 


And 


(and <conditional-elements>) 


(and (eq ?x ?y) (= ?z (+ ?f 1))) 


Is integer 


(integerp <expression>) 


(integerp 3.2) 


Is symoble 


(symbolp <expression>) 


(symbolp x) 


Is string 


(stringp <expression>) 


(stringp "louai") 


Is odd 


(oddp <integer-expression>) 


(oddp 23) 


Is even 


(evenp <integer-expression>) 


(evenp 25) 


Is equal 


(eq <expression> <expression>) 


(eq "hello" "HELLO") 


Is number 


(numberp <expression> ) 


(numberp 34.5) 
(numberp f23) 


IS symbol or 
string 


(lexemep <expression>) 


(lexemep x) 
(lexemep "x") 
(lexemep ?*globalVar*) 



Example: Suppose that we have a below facts in the Truth Table, Write a program that assert a facts 
from existing ones facts about which facts operation represent Logical AND GATE. 



ID 


A 


B 


c 


Operation 


0 


0 


0 


0 


0 


1 


0 


0 


1 


0 


2 


0 


1 


0 


0 


3 


0 


1 


1 


0 


4 


1 


0 


0 


0 


5 


1 


0 


1 


0 


6 


1 


1 


0 


0 


7 


1 


1 


1 


1 



1- Representing facts 



□ CLIPS 



File Edit View Terminal Help 




CLIPS> (deffacts TruthTable 



If 


id 


A 


B 


c 


Operation 


[ row 


a 


0 


0 


0 


0} 


(row 


l 


0 


0 


1 


Q) 


(row 


2 


0 


1 


0 


0! 


(row 


3 


0 


1 


1 


0) 


(row 


4 


1 


0 


0 


0) 


(row 


5 


1 


0 


1 


0) 


(row 


6 


1 


1 


0 


0) 


(row 


7 


1 


1 


1 


1) 


(row 


8 


1 


1 


1 


0) 



] jendTruthTable Facts 



2-Define a Rule 



r <—) CLIPS 
File Edit View Terminal Help 




CLIPS> (defrule rl 






(row ?id ?a ?b ?c ?op) 






(test (or (and (eq ?a 1) (eq ?b 1) (eq ?c 1) [eq ?op 1] 






) ;endFirstAnd 






(and (eq ?a 0) (eq ?b 0 ) (eq ?c 9] [eq ?op B} 






) ;endSecondAnd 






) ;endOR 






) ;endTest 






=> 

(printout "found And Gate Facts" crlf) 




(assert (logicalGate ?id and_gate)); FactsNAme id GateType 


f 


] ;endRuel 





3- now execute your program and see the result should be look like this 

0 □ clips ooe 

File Edit View Terminal Help 



CLIPS> (facts) 

f-0 (initial-fact) 

f-1 (row 0 0 0 0 0) 

f-2 (row 10 0 10) 

f-3 (row 2B100) 

f-4 (row 3 0 110) 

f-5 (row 4 10 0 0} 

f-6 (row 5 10 1 0} 

f-7 (row 6 110 0) 

f-8 (row 7 1 1 1 1) 

f-9 (row B 1 1 1 81 
For a total of 10 facts. 

CLIPS> (run} 

[R0UTER1] Logical name found And Gate Facts was not recognized by any routers 

[RO UTERI] Logical name found And Gate Facts was not recognized by any routers 

CLIPS> (facts) 

f-0 (initial-fact) 

f-1 (row 0 0 0 0 0) 

f-2 (row 10 0 10) 

f-3 (row 20100} 

f-4 (row 3 0 110) 

f-5 (row 4 10 0 0) 

f-6 (row 5 10 10) 

f-7 (row 6 110 0) 

f-B (row 7 1 1 1 1) 

f-9 (row 8 1110) 

f-12 (logicalGate 7 and_gate) 

f-13 (logicalGate G and_gate) 

For a total of 12 facts. 



Exercise : 

1) write a program that assert logical AND, OR , XOR, NOR and NAND gate for the following 
facts table. 



ID 


X 


Y 


Z 


Operation 


0 


0 


0 


0 


1 


1 


0 


0 


1 


0 


2 


0 


1 


0 


1 


3 


0 


1 


1 


0 


4 


1 


0 


0 


1 


5 


1 


0 


1 


1 


6 


1 


1 


0 


0 


7 


1 


1 


1 


1 



Hint: for helping see the Truth table: 



A 


B 


NOT 


AND 

a a b 


OR 

a v D 


XOR 

a _l b 


NOR 

a v d 


NAND 

a a d 


FALSE 


FALSE 


TRUE 


FALSE 


FALSE 


FALSE 


TRUE 


TRUE 


FALSE 


TRUE 


FALSE 


FALSE 


TRUE 


TRUE 


FALSE 


TRUE 


TRUE 


FALSE 




FALSE 


TRUE 


TRUE 


FALSE 


TRUE 


TRUE 


TRUE 




TRUE 


TRUE 


FALSE 


FALSE 


FALSE 



► 

Basic Mathematic build in function: 



Operation 


Example 


Result 


Addition 


(+2 3 1) 


6 


Subtraction 


(- 56 3) 


53 


Multiplication 


(*3 4) 


12 


Division 


(/ 12 2) 


6 


Division 


(div 12 2 3) 


2 


Maximum 


(max 3 3.9 4) 


4 


Minimum 


(min 3 2 1) 


1 


Absolute value 


(abs -2.3) 


2.3 


Convert to integer 


(integer 4.2) 


4 


Convert to float 


(float 9) 


9 


Square root 


(sqrt 36) 


6 


Power 


(** 6 2) 


36 



Global Variable: 
defglobal constructs used for defining a global variable. 

Syntax: 

(defglobal [<defmodule-name>] <global-assignment>) 
<global-assignment> :: = <global-variable> = <expression> 



<global-variable> :: = ?*<symbol> 
Example^ 



r — □ CLIPS 
File Edit View Terminal Help 




CLIPS> (defglobal ?*32x* = 23) 




CLIPS> (+ ?*32x* 1) 




24 




CLIPS> (numberp ?*32x*} 




TRUE 




CLIPS> (clear) 




CLIPS> (printout t ?*32* crlf) 




[GL0BLDEF1] Global variable ?*32* is unbound. 




CLIPS> 





^ Binding Variable: 
Syntax: 

(bind <Variable-name> <expression>) 
Example: 



Dialog Window 


□BE 


CLIPS> (bind ?a 5) 




5 




CLIPS> ?a 




5 




CLIPS> (+ ?a 3) 




8 




CLIPS> (clear) 




CLIPS> ?a 




[EVALUATH1] Variable a is unbound 




FALSE 




CLIPS > | 




< 


> 



Reading from Terminal & File: 
Syntax: 

(read [logical-name] ) 
(readline [logical-name] ) 

[logical-name] is optional parameter if void then it read from terminal otherwise it read from 
logical-name. 

Example: 

Reading form Terminal 



Dialog Window 




CLIPS > (bind ?var (read)) 




23 




23 




CLIPS > ?var 




23 




CLIPS> (bind ?stmt (readline)) 




My old is 




"My old is 11 




CLIPS> (printout t ?stmt ?var crlf ) 




My old is 23 




CLIPS > | 




< 





Reading from File: 



CD □ CLIPS 


ooe 1 


rile Luit view jerminai Help 






CLIPS> (open M /home/louai/Desktop/clips/ReadMe. txt" note V] 
TRUE 






CLIP5> (printout note "Hello to Expert System Basic Student Guide"} 






CLIPS> (close) 






TRUE 






CLIPS> (open Vhome/louai/Desktop/clips/ReadMe. txt 11 note 11 r") 






TRUE 






CLIPS> (read note) 






Hello 






CLIPS> (readline note) 






" to Expert System Basic Student Guide" 




D 


CLIPS> (read note) 




A- 


EOF 







Exercise: 



1) write a function that take 3 arguments and find out the greatest value. 

□ CLIPS 



CD 
_Ejle 



Edit View Terminal Help 




CLIPS> (def function greatest (?templ ?temp2 ?temp3l 
(bind ?maxi (max ?templ ?temp2 ?temp3) ) 
(printout t "The greatest value is " ?naxi crlf) 

} 

CLIPS> (greatest 49 34 99) 
The greatest value is 99 



2) write a program to convert temperature from Fahrenheit to Celsius. Your program should accept 
a temperature from the user in Fahrenheit and print the corresponding temperature in Celsius. 
Hint: the formula for converting Fahrenheit ( f ) to Celsius ( c ) is: c = 5/9 (f - 32). 



r 



CD QGLIPS OOft 

File Edit View Terminal Help 



- 



CLIPS> (def function To-Celsius "convert temperatures fahrenheit to Celsius" 
0 ; function parameter 

(printout t "Please enter Fahrenheit temperature:"' crlf}; start Actions 

(bind ?fValue (read)) 

(bind ?f Value (float ?fValue)) 

(bind ?cValue (* (/ 5 9) (- ?fValue 32)) ) 

(bind ?cValue (float ?cValue)) 

(printout t ?cValue crlf) ; Result 
] ;end function 
CLIPS> (To-Celsius) 
Please enter Fahrenheit temperature: 
284 
140.0 



Templates: 

def template construct like structure definition in other programming languages like C, C++ , Java... 
deftemplate gives the ability to abstract a structure of the facts by assigning a name to each field found 
within the facts. 

Syntax: 

(deftemplate <deftemplate-name> [<comment>] 
<slot-definition>*) 

<slot-definition> ::= <single-slot-definition> | <multislot-definition> 

<single-slot-definition> ::= (slot <slot-name> <template-attribute>*) 

<multislot-definition> ::= (multislot <slot-name> <template-attribute>*) 

<template-attribute> ::= <default-attribute> | <constraint-attribute> 

<default-attribute> ::= (default 7DERIVE | 7NONE | <expression>*) 

| (default-dynamic <expression>*) 

Example: 

1) Suppose that we want to represent a knowledge base about students which has the following 
fields. 



Slot-Type 


Slot-name 


Slot-default- Value 


Multi slot 


P_name 




Single slot 


P_gender 


M 


Single slot 


P_age 


23 


Multi slot 


P_major 


Computer Science 



CD □ CLIPS 

File Edit View Terminal Help 




r 



CLIPS> (deftemplate Student "data related to Student" 

(multislot stdname (default " "} } 

(slot std_gender (default m ) ) 

(slot std_age (default 23] ) 

(multislot stdjnajor (default undergraduate student)) 

);end Student template 
CLIPS> (assert (Student (std_name Wael Bin Mishal) (std_age 24]) ) 
<Fact-B> 
CLIPS> (facts) 

f-0 [Student (std_name Wael Bin Mishal) (std_gender m) (std_age 24) (std_ma 
or undergraduate student)) 
For a total of 1 fact. 



2) From the same example above define a rule that insert a multiple student facts. 

S3 CLIPS OOft 

File Edit View Terminal Help 



CLIPS> (defrule add-student-KB 
(initial-fact) 
=> 

(assert (Student (std_name Saleh Bin Salem))) 
(assert (Student (std_name Ali) (stdjnajor physics))) 
(assert (Student (std_name Lena) (std_gender F) (std_age 19))) 
(assert (Student (std_name Waled) (std_gender H) (std_age 22) 
(stdjnajor information system) 

) 

) 

) ;end rule 



After defining the rule execute the program so you can see the output like you have learned 
from previous section by typing 
(reset) 
(run) 
(facts) 

3) Form the same example above now define a rule that print all the facts related to the student 

CD □ Terminal O O ft 

File Edit View Terminal Help 



CLIPS> (defrule print All 

(Student (std_name $?n) (std_gender $?g) (std_age $?al (stdjnajor $?m) 

) 

=> 

(printout t "student Name: "$?n" , student Gender: " , $?g" r student Age: 
H $?a\ sTudent Major: N $?m pl N crlf) 
] ;end rule 



L 



4) Suppose that we want to delete a facts in a template we will use (retract ) command, for 
example we want to delete all female from student template. 



File Edit View Terminal Help 




CLIPS> (defrule Delete Female 

?factID <- (Student (stdgender F)) 






-> 

(retract ?factID) 

» 

CLIPS> (reset) 
CLIPS> (run) 




0 




A 



5) Suppose that we have a knowledge that we want to modify we will use (modify) key word, for 
example modify the student name Ali to Sami and his age to 28. 



□ CLIPS 



File Edit View Terminal Help 



CLIPS> (defrule ModifyStudent 

?mod_temp <- (Student (std_name Ali}) 



=> 



(modify ?mod_temp (5td name Sami) (5td_age 28)) 

) 



CLIPS> (reset) 
CLIPS> (run) 



6) Finally we want to learn how to search for specific knowledge, we will use (test) keyword for 
that, Suppose that we want to search for student name waled. 



□ CLIPS 



File Edit View Terminal Help 



OOft 



CLIPS> (defrule SearchWaled 

(Student (std_name ?n) (std_age ?a) (std_gender ?g) (stdjnajor) ) 

(test (eq ?n waled) ) 

=> 

(printout t "waled found in memory" crlf) 

) 



Procedural Function in CLIPS 



Procedural Function: 

The following are functions which provide procedural programming capabilities as found in 
languages such as Pascal, C and Ada 



IF condition: 
Syntax: 

(if <expression> 
then 

<action>* 

[else 

<action>*] 



) 

Example: 



1) write a simple program that read integer form user and check wither if it's even or odd 
and assert facts about user input. 



CD qclips no ft 

File Edit View Terminal Help 



CLIPS> (def function EvenCheck (} 

(printout t "please enter integer value: " crlf) 
(bind ?templnt (read)) 
(bind ?templnt (integer ?templnt}} 
(if (evenp ?templnt) 
then 

(printout t ?templnt " is even" crlf) 

(assert (even ?templnt]] 

else 

(printout t ?templnt " is odd" crlf) 
(assert (odd ?templnt}] 

) ;endlf 
) ;endFunction 
CLIPS> (EvenCheck) 
please enter integer value: 
83 

83 is odd 
<Fact-S> 



0 



While Loop: 
Syntax: 

(while <expression> [do] 
<action>* 

) 



Example: 

1) write a simple program that read input form the user and check wither input is a number, 
if tis a number then let user input again otherwise abort from the program. 



CD Ej CLIPS 




File Edit View Terminal Help 




CLIPS> (def function Fl () 




(bind ?value 8) 




(while (numberp ?value) 




(printout t "Please enter number 11 crlf) 




(bind ?value (read] ) 




) ;endWhile 






(printout t " program Aborted Pl crlf) 


B 


) ;endFunction 




CLIPS> (Fl) 





► 

For Loop: 

Q: what is the different between a While loop and For loop ? (discussed this you TA) 
Syntax: 

(loop-for-count <range-spec> [do] <action>*) 

<range-spec> ::= <end-index> | (<loop-variable> <start-index> <end-index>) 
(<loop-variable> <end-index>) 

<start-index> ::= <integer-expression> 
<end-index> ::= <integer-expression> 

Example: 

1) Here an example to show instead for loop iteration 







File Edit View Terminal Help 




CLIPS> (loop-for-count (?i 0 2) do 




(loop-for-count (?j 3 4) do 

(printout t ?i 11 11 ?j crlf] 






] ;endNestedLoop 




) jendOuterLoop 





► 

Foreach Loop: 
Syntax: 

(foreach <list-variable> <multifield-expression> 
<expression>* 

) 

Example: 

The example below show: 

(create$ ) — to create multiple field 

using foreach to print out each field of chine. 



t Dialog Window 




CLIPS > (create$ asdf asdf 234) 
(asdf asdf 234) 

CLIPS > (foreach ?f (created book science computer) 
(printout t 11 — > 11 ?f crlf)) 
— > book 




A- 


— > science 

— > computer 
CLIPS > 




V 


< 


> 





Inference Engine Technique 



Backward chaining (goal driven) : the inference engine works backward from a conclusion to be 
proven to determine if the facts in working memory prove the truth of the conclusion. 

Example: 

Rule-base Working Memory 

Rl: IF A AND B THEN D A,B 

R2: IF B THEN C 

R3: IF C AND D THEN E 




^ Signifies AND 



Expert system for Car diagnosis. 



Rule 1: IF the engine is not getting gas 

AND the engine will turn over 
THEN the problem is engine need gas. 

Rule 2: IF the engine does turn over 

AND the engine has gas. 

THEN the problem is need to contact with provider. 

Rule 3: IF the engine does not turn over 

AND the lights do not come on 
THEN the problem is battery or cables. 

Rule 4: IF there engine is not trun over 

AND the light is come on AND solenoid is working AND terminal is clean 
THEN the starter need to replace. 

Rule 5: IF engine does not turn over 

AND lights come on AND solenoid is working 
AND terminal is not clean 
THEN clean termianl. 

Rule 6: IF engine does not turn over 

AND lights come on AND solenoid is not working 
AND solenoid fuse is not working 
THEN fuse need to be replace. 

Rule 7: IF engine does not turn over 

AND lights come on AND solenoid is not working 
AND solenoid fuse is working 
THEN solenoid need to be replace. 

Solution: 



r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r 

; ; ; ; ; ; ; Car Diagnosis Example 

}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} 

(def template question 

"A question the application may ask" 

(slot text) ;; The question itself 

(slot ident) ) ;; The "name" of the question 

(def template answer 
(slot ident) 
(slot text) ) 

}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} 

; ; Knowledge base 

}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} 

(def facts question-data 
(question 

(ident starter) 

(text "Does the car 1 s starter turningg (yes or no)? ")) 
(question 

(ident petrol) 

(text "Do you have any petrol (yes or no)? ")) 
(question 

(ident light) 

(text "Are the lights working (yes or no)? ")) 
(question 

(ident solenoid) 

(text "Does the solenoid click (yes or no)? ")) 
(question 

(ident terminals) 

(text "Are the terminals clean (yes or no)? ")) 
(question 

(ident solenoid- fuse) 

(text "Are the fuse working (yes or no)? ")) 
(ask starter) 
(ask petrol) 
(ask light) 
(ask solenoid) 
(ask terminals) 
(ask solenoid- fuse) 

) 



r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r 

; ; inference Engine 



r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r 



(defrule rl 

(answer (ident starter) (text yes) ) 
(answer (ident petrol) (text no) ) 

=> 

(assert (buy some petrol!)) 
(printout t "buy some petrol!" crlf) 

) 

(defrule r2 

(answer (ident starter) (text yes) ) 
(answer (ident petrol) (text yes) ) 

=> 

(assert (call provider) ) 
(printout t "call provider" crlf) 

) 

(defrule r3 

(answer (ident starter) (text no) ) 
(answer (ident light) (text no) ) 

=> 

(assert (charge battery) ) 
(printout t "charge battery" crlf) 

) 



(defrule r4 

(answer (ident starter) (text no) ) 

(answer (ident light) (text yes) ) 

(answer (ident solenoid) (text yes) ) 

(answer (ident terminals) (text yes ) ) 

=> 

(assert (replace starter) ) 
(printout t "replace starter" crlf) 

) 



(defrule r5 

(answer (ident starter) (text no) ) 

(answer (ident light) (text yes) ) 

(answer (ident solenoid) (text yes) ) 

(answer (ident terminals) (text no ) ) 

=> 

(assert (clean terminals) ) 
(printout t "clean terminals" crlf) 

) 

(defrule r6 

(answer (ident starter) (text no) ) 
(answer (ident light) (text yes) ) 
(answer (ident solenoid) (text no) ) 
(answer (ident solenoid-fuse) (text no) ) 

=> 

(assert (replace fuse) ) 
(printout t "replace fuse" crlf) 

) 

(defrule r7 

(answer (ident starter) (text no) ) 
(answer (ident light) (text yes) ) 
(answer (ident solenoid) (text no) ) 
(answer (ident solenoid-fuse) (text yes) ) 
=> 

(assert (replace solenoid) ) 
(printout t "replace solenoid" crlf) 

) 



r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r 

; ; backword chaining rule 
}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} 

(def rule supply-answers 
(answer (ident ?id) ) 
(not (answer (ident ?id) ) ) 
(not (ask id?) ) 
=> 

(assert (ask ?id) ) ) 



r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r 

; ; Define Function 

}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} 

; ; Ask user function 
(deffunction ask-user (?question) 

"Ask a question, and return the answer" 

(bind ?answer "") 

(printout t ?question " ") 

(bind ?answer (read) ) 

(return ?answer) ) 



r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r 

; ; Ask by ID Rule 
(def rule ask-quest ion-by-id 
"ask user by id" 
(question (ident ?id) (text ?text) ) 
(not (answer (ident ?id) ) ) 
?ask <- (ask ?id) 
=> 

(retract ?ask) 

(bind ?answer (ask-user ?text) ) 

(assert (answer (ident ?id) (text ?answer) ) ) 

) 



}}}}}}}}}}}}} END }}}}}}}}}}}}}}}}}}}}}}}}}}} 



CLIPS Integration with other Programming Languages 



CLIPS could be integrated with any other languages you can go to CLIPS web site to see the 
available language that could have integration with CLIPS, this is tutorial about integrating CLIPS with 
Java and C++. 



Lab Requirement for this part of document: 

1) Install JDK ( Java Development Kit ) 

2) Install any Java IDE (Integrated Development Environment ) 

3) Install JESS from the following website http ://www. j essrules . com/ 



Skills Requirement: 

Ability to understand API ( Application programming Interface): 

Java API use the following link: http ://j ava. sun. com/ref erence/api/ 

JESS API use the following link: http://www.jessrules.com/jess/docs/index.shtml 

NetBeansiDE 




In this Tutorial I used NetBeans IDE , all concept provided also could be applied for any another Java 
IDE 



1) Create a project. 



| Edit View Navigate 


Source Refactor 


13 New Project... 


Ctrl+Shift+N 1 


S New File... 


Ctrl+N 


Q§ Open Project... 


Ctrl+Shift+O 


Open Recent Project 




Close Project 




Open File... 




Open Recent File 




Project Group 




Project Properties 




import Project 




Save 


Ctrl+S 


Save As... 




% Save All 


Ctrl+Shift+S 


Page Setup... 




Print... 


Ctrl+Alt+Shift+P 


Print to HTML... 




Exit 





Chose the Project type among projects : 



Steps 



1. Choose Project 

2. ... 



ONsw Project 

Choose Project 




Categories: 

□ NetBeans Modules 
> D Samples 



Projects: 

Sf' Java Application 



Java Desktop Application 



Java Class Library 
& J ava Project with Existing Sources 
Java Free-Form Project 



Description: 

Lreaies a sKeieion or a aesKiop application oaseo on tne bwing Application 
Framework (JSR 296). This template provides basic application infrastructure 
such as a menu bar, persisting of window state, and status bar. With this 
template, you can also generate code to create a GUI interface for a 
database table. 



Back (Next >) f Finish v (cancel) ( Help ) 



Enter a name of the project : 



QNew Desktop Application 



Steps 



1. Choose Project 

2. Name and Location 



Name and Location 




Project Name: 
Project Location: 
Project Folder: 
Application Class 



ClipsWith|ava 



/home/louai/NetBeansProjects 



(Browse..) 



ome/louai/NetBeansProiects/ClipsWithjava 



clipswithjava.ClipsWith|avaApp 
Choose Application Shell 



Basic Application 



A basic application skeleton containing 
I everything needed to start with a general 
desktop application, such as the following: 



II 1 Use Dedicated Folder for Storing Libraries 
Libraries Folder: 



Browse. 



Different users and projects can share the 
same compilation libraries (see Help for 
details). 



0 Set as Main Project 



( < Back ) ' Next >" (Finish) (cancel) ( Help ) 



2) Include JESS library to your project 
There is First way to include library through project Folder go to library like figure below. 



Pro. 



Files 



Services 



& ClipsWithJava 

^ <S Source Packages 
t> C'J META-INF. services 
^ S clipswithjava 

H ClipsWithjavaAboutBox.ja" 1 

Clip s Wit hj ava Ap p . j a va 
11 Clip s Wit hj a vaVi e w . j a va 

b | | clipswithjava. resources 

t> | | clipswithjava. resources. bus; 

> C3 Test Packages 



T IF' Libraries 



0 9 Swing Application Framewor 

t> § Swing Application Framewor 

t> a JDK 1.6 (Default) 

t> Test Libraries 



Click on Right-Mouse and select form the pub pap menu Add Library 



r i i 
k ClipsWithJava 




^ ^3 Source Packages 


n 


t> g META-INF. services 




v 2 clipswithjava 




Q C 1 ipsWithjava About B ox. ja- 1 
ClipsWithjavaApp.java 


Q ClipsWithjavaView.java 


i> | | clipswithjava. resources 


> clipswithjava. resources. bus; 


t> C3 Test Packages 








t> S £ Add Project... 


arnewor 


H"^H Add Library... 


arnewor 


t> g] j| Add JAFVFolder,., 




> * Te; Properties 

5* JP& np^lfi nnwnnnr'^i inn i 


i 



Another way to include a Library throw Tool: 



| Window Help 
Add to Favorites 

Add to Palette... 
Create JUnit Tests 
Analyze Javadoc 

□iff 

Apply Diff Patch... 
Internationalization 

java Platforms 
NetBeans Platforms 
Variables 



Libraries 



; lemplates 

! DTDs and XML Schem 

: Palette 

Plugins 

■ Options 



Libraries location: 
Libraries: 



Global Libraries 



Class Libraries 
B> Absolute Layout 
£ Beans Binding 
E ClipsJniLibrary 
£ CopyLibs Task 
Java Tree API 




Library Name: |ESS 



Classpath 



Sources 



Javadoc 



JESSLibrary 
JUnit 3.8.2 
JUnit 4.6 
JWS Ant Tasks 
Swing Application Framewoi 
Swing Layout Extensions 



Library Classpath: 



ers/DLL C# and Java/]ess71p2/lib/iess.iar 



(New Library,, J (Remove) 



( AddjAR/Folder.. j 
( Remove 3 

Move Up ^ 
( Move Down ) 



( OK ) (cancel) 



A pub pap form will be shown : 

1- Click on new Library 

2- Enter New Library name ( JESS ) 

3- Press Ok. 

4- a new defined library will be in the left list. 

5- Add jess.jar to ClassPath 

6- Add jsr94.jar to Sources 

7- press Ok. 



Libraries location: 
Libraries: 



Global Libraries 



Class Libraries 
B> Absolute Layout 
£ Beans Binding 
E ClipsJniLibrary 
£ CopyLibs Task 
Java Tree API 




JESSLibrary 
JUnit 3.8.2 
JUnit 4.6 
JWS Ant Tasks 
Swing Application Framewoi 
Swing Layout Extensions 



( j\lew Library. . .) ( Remove) 



Library Name: |ESS 



Classpath 



Sources 



Javadoc 



Library Sources: 



ers/DLL C# and Java/|ess71p2/lib/isr94.iar 



( AddjAR/Folder.. j 
£ Remove ) 

Move Up ^ 
£ Move Down 3 



( OK ) (cancel) 



3) Simple application. 
After adding the Library, now you have to include it to your project see the below figure 



^ Libraries 

> § Swing Application Framewor 
b 3 Swing Application Framewor 



IESS - iess.iar 



> g] JDK 1-6 (Default) 



now import the Library by the following code 
import jess.*; 

L import j ess . :+: ; 1^1 

+: 

* ^author louai 
*/ 

public class Hain { 

* (Oparam args the command line arguments 
*/ 

I public static void wain(Stnng [ ] args) { 

// TODO code application logic here 
Rete r = new ReteO; 

String command = " [def function foo(?x) "+ 
11 [return [+ ?x 1) ) 11 
+ ")"; 

try { 

r . eval (command) ; 
Value v = r.eval("(foo 11 ) ; 

System. out . print In (v . int Value ( r . getGlobalContext ( ] ) ) ; 
} catch ( JessException ex) { 

Logger . getLogger (Main . class . getName ( ) ) . log (Level .SEVERE, null, ex) 

} 



Second Example: 

Integrate CLIPS with C++ application, 

Step 1. Download clips binding library from CLIPS website, Here I used the library form 
http ://www. ghg.net/clips/download/source/ . 

Step 2. Use any IDE for writing C++ , such Visual Studio , Eclipse , NetBeans or MonoDevelop 
Here I will use MonoDevelop IDE. 



MonoDevelop 



From menu bar chose File new -+ solution a wizard will appear to create a new project. 

New Solution 




C+4 










1 



Empty C+ 
+ Project 



Shared 
Library 



Static 
Library 



Creates simple hello world C++ project 



Location 

Nam e : Em bed ed CI i ps Proj ectj 

Location: 



/horn e/l ou a i/Proj ects 
M Create separate Solution subdirectory 



(Browse...) 



Sol uti on na me: Em bed ed CI i ps Proj ect 

Project will be saved at /horn e/l ou a i/Projects/Em bed ed Clips Project/Em bed ed Clips Proj ect 

( Cancel ) ( OK ) 



Then complete the wizard. Build & run your project to test it (Hello World!). 



O Solution Em bed ed Clips Project (1 
7 O Embed edClipsProject 

B Packages 



3 main.cpp 



■-■ Welcome x ) main.cpp* x j 
("Q (Global Scope) ~ )(~ 



DC 





1 


/* 




2 


* author, louai| 






* 






*/ 




5 


#include <iostream> 




6 


using namespace std; 




7 






8 


int main (int argc, char *argv[] ) 




9 


{ 




10 


cout « "Hello world!" « endl; 




11 






12 


return 0; 




13 


} 




14 







Application Output 




_ X 


Hello world! 










CO 









Step3. Create a new folder in Solution call it Lib for library. 

- Welcome x f % mairhcpp* x j 



Solution _ X 

= Solution EmbededClipsPnoject (1 ( 



EmbededClipsProject 




r % (Global Scope) 



£i Packages 
H main.cpp 



Build EmbededClipsProject 


F7 




Rebuild EmbededClipsProject 


Ctr1+F7 




Clean EmbededClipsProject 






Run Item 






Debug Item 






Run With 




a ray T 1 ) 


Set As Startup Project 






Add ► 


New File... 


Tools 

Find in Files- 
Open Containing Folder 

Copy 
Cut 
Delete 
Rename 

Options 

Display Options 

• inuuii^yuun uuluul 


Ctrl+Shift+F 

Ctrl+C 
Ctrl+X 


Add Files- 
New Dialog... 
New Window... 
New Widget... 
New Action Group... 


F2 


New folder j 


— 



Solution _ X 

^ O Solution EmbededClipsProject (1 
^ ^ EmbededClipsProject 

(3 Packages 
BlJb 
main.cpp 



Step 3. Extract clips library source and copy the extracted library in to Lib folder in your project. 



Solution 



Welcome x f % main.cpp* x ] 



Solution EmbededClipsProject (i < ^ (G|oba| Scope) 
^ ^ EmbededClipsProject 



B Packages 
main.cpp 



1 | /* 

* author, louai 




New File. 



Add Files. 



Tools ► 
Find in Files... Ctrl+Shift+F New Folder 
Open Containing Folder t argc p char *ar 

Hello world! 11 < 



Copy 


Ctrl+C 


Cut 


Qrl+X 


Delete 




Rename 


F2 


Display Options 

l_M 1 


A 



©Add files 

(7) Q (LAb5XcUPS)( C| 'P S Integration with other Languages Y C++ with clips 3 ( Iib )( cLIPS ^ Q 

TO 



Places 


Name 


- I Size 


Modified 


3 Search 


■ agenda.c 


41.1 KB 


11/07/2007 


0 Recently Used 


■ agenda ,h 


7,4 KB 


11/07/2007 


^ louai 


P analysis.c 


40.8 KB 


11/07/2007 


O Desktop 


P analysis.h 


1.8 KB 


11/07/2007 


U File System 


P argacces.c 


38.0 KB 


11/07/2007 


Projects 


P argacces.h 


4,7 KB 


11/07/2007 


Documents 


P bloadx 


26.9 KB 


11/07/2007 


* Music 


P bload.h 


3.4 KB 


11/07/2007 


Pictures 


P bmathfun.c 


28.0 KB 


11/07/2007 


■ Downloads 


P bmathfun.h 


2,9 KB 


11/07/2007 


m Videos 


P bsavex 


18.7 KB 


11/07/2007 


Shared Folder 


P bsave.h 


3.7 KB 


11/07/2007 


Ubuntu One 


P classcomx 


28.3 KB 


11/07/2007 




P classcom,h 


6.5 KB 


11/07/2007 




P classexm.c 


44.0 KB 


11/07/2007 




P classexm.h 


4.6 KB 


11/07/2007 




P classfun.c 


41.6 KB 


11/07/2007 










Add A (Remove'' 1 


P classfun.h 


4.8 KB 


11/07/2007 



□ Override default build action 1 Compile iT] 



r Cancel ^) ^ Open ) 



Step 4. Now delete a main.c in Lib folder in your project because you already created your main 
function in C++. 



Solution 



^ O Solution Em bed ed Clips Project ( 
7 a EmbededClipsProject 

& Packages 



m ub 



Ijji agendas 
\M agenda. h 
® analysis^ 
\M analysis.h 
® angacces.c 



Step 5. Create a new folder in the same project call it KBS and create new file in it name it temp.clp 

Solution _ x 

^ O Solution CMpsec (1 entry) 
" Q Clipsec 

O Packages 
^ Bkbs 

Q temp.clp 



3 main.cpp 



choose to open it in text editor and enter in this file your clips code 





Welcome x | @ main.cpp x \\ temp.clp* x 






(deffacts asdf 






(hello man] 






) ;endfacts 












(defrule rl 






=> 






(printout t "Hello to Clips World integrated with C++] " crlf) 






) ;end rl 















Step 6. Now in your main include "Lib/clips . h" and modify your main to like the following 
Welcome x yfa> main.cpp* *Tj tern p. dp* x 



r % (Global Scope) 



DC 



3C 



1 



1 


/* 




2 


* 


author, louai 


3 


* 




4 


*/ 




5 


#include <iostream> 


6 
7 


#include "Lib/clips. h fl 


8 
9 


using namespace std; 


10 


int 


main (Int argc, char *argv[]) 


11 


{ 




12 




cout « "Hello world! from C++ w 


13 






14 




InitializeEnvironment () ; 


15 




Load ( 11 . ./. ./KBS/temp.clp"}; 


16 




Reset () ; 


17 




Run(-IL) ; 


18 




cout « "End 11 «endl; 


19 




return 0; 


20 


} 




21 







A. 
T 



Finally build your project and run, the output should look like this. 



Application Output 

Hello world! from C++ 

Hello to Clips World integrated with C++ 

End 



CO 



Expert system for Car diagnosis with Java Application 



From previous tutorial below steps has been shown. 
1) Create new project. 



0 New Project ft 


Choose Project 






Categories: 


Projects: 




r| Java j 


Fjjava Application 




□ C/C++ 

□ NetBeans Modules 


& Java Desktop Application 

^ Java Class Library 

^ Java Project with Existing Sources 




> □ Samples 




1 


Java Free-Form Project 





2) Add JESS library 
Now we will do the following: 

3) Add .clp file to the source package. 

" S» Lab3 

^ ^3 Source Packages 



■ 



C3 Test P; 
m Librari- £ind - 
S Test Li Cut 
f Lab4 Copy 
Paste 



Ctrl+Shift+F 



Delete 
Refactor 

Compile Package 
Local History- 
Tools 



Welcome to NetBeans ID 



□ Empty File... 
Gij Java Class... 
Sjava Package... 
Ei Java Interface... 
Ctrl+V □jp ane | Form... 

JFrame Form... 
* Hi Entity Class... 
F9 @ Entity Classes from Database... 



+ Jioth 



4) Name a file CarDiagnosis.clp. 





9 Lab3 




<3 Source Packages 




^ 99 Iab3 


li CarDiagnosis.clp 




Ell Main.java 


> 


C3 Test Packages 


> 


C3 Libraries 


> 


Ci Test Libraries 



5) Open clp File by double click and then write the CLIPS code from Car Diagnosis Example. 



Start Page x (rfft Main.java * ]jj CarDiagnosis.clp xj ©Ct © © 









i 

2 
3 
4 
5 
6 
7 
3 
9 
1G 
11 


;;;;;;; Car Diagnosis Example 

(deftemplate question 

"A question the application may ask" 

(slot text) ;; The question itself 

(slot ident)) ;; The "name" of the question 




(deftemplate answer 
(slot ident) 




12 


(slot text]) 




13 
14 
15 
16 
17 
18 
19 
2G 

2i 

22 
23 
24 


;; backword chaining answer (my goal) 
(do- backward- chaining answer) 

iiriririiiiiittiiriftttttttttttttttttt 

(deffacts question- data 

(question (ident starter) (text "Does the car's starter turningg (yes o 
(question (ident petrol) (text "Do you have any petrol (yes or no)? ")) 
(question (ident light) (text "Are the lights working (yes or no)? ")) 
(question (ident solenoid) (text "Does the solenoid click (yes or no)? 
(question (ident terminals) (text "Are the terminals clean (yes or no)? 
(question (ident solenoid- fuse] (text "Are the terminals clean (yes or 
(ask starter) 


T 



6) Create a function in Main.java to read text from .clp file. 

public static String ReadFile (File pFile) { 
FileReader reader = null; 
String content = ""; 

try { 

int i = 0; 

reader = new FileReader (pFile ) ; 
while (i != -1) { 

i = reader, read () ; 

content += (char) i; 

} 

} 

catch (IOException ex) { 

Logger. get Logger (Main .class . get Name ( ) ) .log (Level . SEVERE, null , ex) ; 

} 

finally { 

try { 

reader. close ( ) ; 
} catch (IOException ex) 

Logger. get Logger (Ma in. class. getName ( ) ) .log (Level . SEVERE, null , ex) ; 
} 

} 



return content; 
}//end Function Read Text from file. 



7) Inside Main Thread Write the following code 



public static void main (String [ ] args) { 
// TODO code application logic here 

String path = " . . /Lab3/build/classes/lab3/CarDiagnosis . clp" ; 
Rete engine = new Rete ( ) ; 
File file = new File (path) ; 
String command = ReadFile ( f ile ) ; 
try { 

engine . executeCommand (command) ; 
engine . reset ( ) ; 
engine . reset ( ) ; 
engine . run ( ) ; 

Value v = engine . eval (command) ; 

System . out . print In (v. int Value (engine . get Global Context ( ) ) ) ; 
} catch ( JessException exf) { 

Logger. getLogger (Main . class . getName ( ) ) . log (Level . SEVERE, 
null, ex) ; 
} finally { 

System . out . print In ( "End Application" ) ; 



}//End main Thread. 



8) Finally Build and Run the project. 



Clean and Build Main Project (Shift+Fll) 



9) Output in Terminal should look like this. 



Versioning Output | Usages ^ Tasks 



Output 



Lab3 (clean, jar) * Lab3 (run) * ] 



run : 

Are the terminals clean (yes or no)? yes 
Are the terminals clean (yes or no)? no 
Does the solenoid click (yes or no)? no 

Are the lights working (yes or no)? yes 

Do you have any petrol (yes or no)? no 

Does the car's starter turningg (yes or no)? yes 
buy some petrol! 
End Application 
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Expert system for Car diagnosis with Java Desktop 

Application 



Finally we want to create Desktop application for the same example above, with the following 
requirement: 

1- Create a Desktop Application that load Diagnosis file 

2- make a project dynamic to be fit with any Diagnosis file as possible. 

Download the Project form following site: 

https://sites.google.com/site/orabilouai/my-library/expert-system-clips/ 
Step by Step Tutorial: 

(1) Create a Desktop Project 



Steps 



1. Choose Project 

2. ... 



ONew Project 

Choose Project 



Categories: 

□ NetBeans Modules 
t> □ Samples 



Projects: 



Java Application 



Java Desktop Application 



Java Class Library 

Java Project with Existing Sources 

Java Free-Form Project 




Description: 

creates a SKeieion or a aesiccop application oasea on ine bwing Application j 
Framework (JSR 296). This template provides basic application infrastructure ■ 
such as a menu bar, persisting of window state, and status bar. With this 
template, you can also generate code to create a GUI interface for a 
database table. 



< Back ) (Next >) f Finish / (cancel) ( Help ) 



(2) Add JESS library, use the previous tutorial if you still do not know how to import library to 
your project. 



(3) Add .clp file to source package, then modify it. 
Hint: 

• user the previous tutorial if you still do not know How to include clp file to source pakage. 

• Notice that we delete some rule that interact with user terminal. 



; ; ; ; ; ; ; Car Diagnosis Example 

}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} 

(def template question 

"A question the application may ask" 

(slot text) ;; The question itself 

(slot ident) ) ;; The "name" of the question 

(def template answer 
(slot ident) 
(slot text) ) 

(def template advice 
(slot result) 

) 

}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} 

;; backword chaining answer (my goal) 
(do-backward- chaining answer) 

}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} 

(def facts question-data 
(question 

(ident starter) 

(text "Does the car 1 s starter turningg (yes or no)? ")) 
(question 

(ident petrol) 

(text "Do you have any petrol (yes or no)? ")) 
(question 

(ident light) 

(text "Are the lights working (yes or no)? ")) 
(question 

(ident solenoid) 

(text "Does the solenoid click (yes or no)? ")) 
(question 

(ident terminals) 

(text "Are the terminals clean (yes or no)? ")) 
(question 

(ident fuse) 

(text "Are the fuse working (yes or no)? ")) 

) 



r 

(ciefrule rl 

(answer (ident starter) (text yes) ) 
(answer (ident petrol) (text no) ) 

=> 

(assert (advice (result "buy some petrol!"))) 
(printout t "buy some petrol!" crlf) 

) 

(defrule r2 

(answer (ident starter) (text yes) ) 
(answer (ident petrol) (text yes) ) 

=> 

(assert (advice (result "call provider"))) 
(printout t "call aa" crlf) 

) 

(defrule r3 

(answer (ident starter) (text no) ) 
(answer (ident light) (text no) ) 

=> 

(assert (advice (result "charge battery"))) 
(printout t "charge battery" crlf) 

) 



(defrule r4 

(answer (ident starter) (text no) ) 

(answer (ident light) (text yes) ) 

(answer (ident solenoid) (text yes) ) 

(answer (ident terminals) (text yes ) ) 

=> 

(assert (dvice (result "replace starter"))) 
(printout t "replace starter" crlf) 

) 

(defrule r5 

(answer (ident starter) (text no) ) 
(answer (ident light) (text yes) ) 
(answer (ident solenoid) (text yes) ) 
(answer (ident terminals) (text no ) ) 

=> 

(assert (advice (result "clean terminals"))) 
(printout t "clean terminals" crlf) 

) 



(defrule r6 

(answer (ident starter) (text no) ) 

(answer (ident light) (text yes) ) 

(answer (ident solenoid) (text no) ) 

(answer (ident fuse) (text no) ) 

=> 

(assert (advice (result "replace fuse"))) 
(printout t "replace fuse" crlf) 

) 

(defrule r7 

(answer (ident starter) (text no) ) 

(answer (ident light) (text yes) ) 

(answer (ident solenoid) (text no) ) 

(answer (ident fuse) (text yes) ) 
=> 

(assert (advice (result "replace solenoid"))) 
(printout t "replace solenoid" crlf) 

) 



See the figure. 

Start Page xJ|Q CarDiagnosisView.java CarDiagnosis.clp x| ► 'V- 



1 

2 ;;;;;;; Car Diagnosis Example 

3 
4 
5 
6 
7 
8 
9 
1G 
11 
12 
13 
14 
15 
16 
17 
18 
19 
2G 
21 

22 (deffacts question- data 

23 (question (ident starter) (text "Does the car's starter turningg (yes o 

24 (question (ident petrol) (text "Do you have any petrol (yes or no)? 11 ) ) 
25 1 (question (ident light) (text " Are the light s working (ves or no)? "11 



***************************************************************** 
;;;;;;; Car Diagnosis Example 

****************************************************************** 



(deftemplate question 

"A question the application may ask" 

(slot text) ;; The question itself 

(slot ident)) ;; The "name" of the question 

(deftemplate answer 
(slot ident) 
(slot text)) 

(deftemplate advice 
(slot result) 

) 

fffffffffffffffffffffffffffffffiiiiiii 
;; backword chaining answer (my goal) 
(do- backward- chaining answer) 

************************************** 



(4) Design your GUI Form 



Hint: 



Use palette window menu to drag and drop the tools. 

Properties window menu to show the properties of each object in GUI. 



Start Page ^[y CarDiagnosisView.java CarDiagnosis.clp * 

Source ( ^Design ") ^ 



- J - l> I. H ~ * 






^Swinci Containers L^: 


1 1 Panel 


H Tabbed Pane 


u 


IE Split Pane 


E3 Scroll Pane 




EH Tool Bar 


5 Desktop Pane 




n Internal Frame 


H Layered Pane 


H 


^ Swina Controls 


i .-.U .-.1 




T 




[FrarneView] - Properties nk x 


£ Properties 


Binding 




^Properties 


component 


mainPanel 


-0 


menuBar 


menuBar 


-0 


statusBar 


statusPanel 


-0 


toolBar 


<none> 






[FrarneView] 



(5) Add event to GUI 



File Help 



©Yes 
O No 



^7= 



— Edit Text 

Change Variable Name ... 

Bind 

actionPerformed [jButtonlActionPerformed] 

Set Action... 



Ready 



Dutput 



Versioning Output 



Debugger Console x CarDiagnosis (clean, ja 



Building jar: /home/ Louai/NetbieansProject 
Copy libraries to /home/louai/NetBeansPro 
To run this application from the command 
java -jar 11 /home/louai/NetBeansProj ects/C 
jar: 

BUILD SUCCESSFUL (total time: 0 seconds) 



Align 

Anchor 

Auto Resizing 

Same Size 

Set Default Size 

Space Around Component. 

Enclose In 

Design Parent 

Move Up 
Move Down 

Cut 
Copy 
Duplicate 
Delete 

Customire Code 



\M. To 
□ Int 

laJ-^l I .-. 

j Butte 



Ancestor 

Change 

Component 

Container 

Focus 

Hierarchy 

HierarchyBounds 

InputMethod 

Item 

Key 

Mouse 

MouseMotion 
MouseWheel 
PropertyChange 
VetoableChange 



► 3 
* 1 

+ m 

> = 

_. , _L 

the Ja 
Mana 



Now we want to add event to each object in Form as needed. To add event we click right-hand mouse 
to the object and then — Click on events — chose the event type we wish to fire, you will notice that I 
source code will be shown to write your code . For example we want to load clp file to our program. 



File Help 



Load 

Exit 



1 



©Yes 
ONo 



Ready 



1 

Edit Text 

Change Variable Name 
Bind 

Set Action... 

Align 

Anchor 

Auto Resizing 

Same Size 

Set Default Size 

Space Around Component. 

Enclose In 

Move Up 
Move Down 

Cut 
Copy 
Duplicate 
Delete 



E> 1 Debugger Customi ^ Code 
HuiLding p r0 p er ties 



Ancestor 

Change 

Component 

Container 

Focus 

Hierarchy 

Hierarc hyBounds 

InputMethod 

Item 

Key 

MenuDragMouse * 

MenuKey 

Mouse 

MouseMotion 
MouseWheel 
PropertyChange ^ 



H Split Pane 

ElLTool Bar 

H Internal Frame 



actionPerformed IjMenult em lActionPerf armed] 



Tasks 



VetoableChange ^ 

jcLLs/Lcii u±oyiius±s/Uist/caruiagnosis.jar 



jMenulteml [JMenulte 



Properties 3 



Events 



^Properties 

action 

accelerator 

background 

font 



jMenulteml [JMenu 



"Fl 



Run Monitor 



+ + m w 



After click o n Action we will add this code to an action function. 
Start Page ^ CarDiagnosisView.java x| CarDiagnGsis.dp x 

Q 



source 

300 
3G1 
3G2 
303 g 
304 
305 
306 
307 
30S 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 



^ ^ & % 



<P % Si 



o □ m j 



sign [JS> m T 

int step = Q; 

File diqnosisFile = null; 

private void jMenuItemlActionPerf ormed (j ava . awt . event . ActionEvent gyi) { 
try { 

if (SelectFileSuccess OH 
// Reading form the File. 
String command = GetClipsText ( ) ; 

// Create an object from Rete and Execute the command 

engine = new ReteO; 

engine . executeCommand (command) ; 

engine . reset ( ) ; 

JLabelStatus . setText ( " clp file Loaded Successfully"); 
}else{ 

JLabelStatus . setText ( 11 Clp file could not be loaded 11 ); 

} 

} catch ( JessException ex) { 

Logger . getLogger (CarDiagnosisView. class . getName ( ) ) . log [Level .SEVEi 

} 



private boolean SelectFileSuccess ( ) { 
JFileChooser fileDialoo = new JFileChooser (new File (Svstem. aetProoert 
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(6) Build and Run. 
Run the project 



CD |£g Basic CLIPS Application Example 



File Help 



©Yes 
0 No 



( Start ) (Facts) 



Ready 



load the file .clp 










r 

CD 


& Basic CLIPS Application Example 





OS Help 




1 1 nad 


Exit Ctrl+Q 


©Yes 


( Start ) (Facts) 


Ono 



Ready 



Chose the clp file we create in the following directory src/cardiagnosis 

[&]Open 



l ^New Fold^ ^ Dejete File ( Rename File) 

/home/louai/NetBeansProjects/CarDiagnosis/src/cardiagnosis ^ 



'Folders 


)(Fjles 


7 


KS CarDiaqnosis.clp B 


../ 




resources/ 


If 



Selection: /home/louai/NetBeansProiects/CarDiaqnosis/src/cardiaqnosis 
CarDiaqnosis.clp 

Filter: 

CLIPS diagnosis File 



* Cancel * OK 

. J \ r 



Notice that after loading the fie in status bar notification will be shown. 



CD ^ Basic CLIPS Application Example OOft 

File Help 



©Yes 
O No 



( Start ) ( Facts) 



clp file Loaded Successfully 



Click on Start button. 



Answer a Question appear in text area. 



CD Basic CLIPS Application Example 

File Help 



OOft 



Are the fuse working (yes or no)? | 



©Yes 

Ono 



f Next ) ( Facts) 



dp file Loaded Successfully 



An advice will be shown after answering all question. 



CD Basic CLIPS Application Example 

File Help 



©Yes 
O No 



( Start ) (Facts) 



"charge battery" 



dp file Loaded Successfully 



